﻿Partial Public Class frmAdminHome
    Public Enum AdminScreens
        Closed = 0
        ProductMaintenance = 1
        ChargeTypes = 2
        ManageConsultants = 3
        DataMenu = 4
        CommsMenu = 5
        EventTypes = 6
        Security = 7
    End Enum

    Private _AdminScreen As AdminScreens

    Public Property AdminScreen() As AdminScreens
        Get
            Return _AdminScreen
        End Get
        Set(ByVal value As AdminScreens)
            _AdminScreen = value
        End Set
    End Property
    Private Sub btnEnableLoginArea_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnEnableLoginArea.Click
        Dim formEnableLoginArea As New frmEnableLoginArea()
        formEnableLoginArea.ShowDialog()
    End Sub

    Private Sub btnOnlinePayment_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnOnlinePayment.Click
        Dim formEnableOnlinePayment As New frmEnableOnlinePayment()
        formEnableOnlinePayment.ShowDialog()
    End Sub

    Private Sub btnConsultants_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnConsultants.Click
        Dim formCoonsultants As New frmAdminConsultants()
        formCoonsultants.ShowDialog()
        
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button9.Click
        Dim frmChargeTypes As New frmAdminChargeTypes()
        frmChargeTypes.ShowDialog()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button8.Click
        Dim frmManageTitles As New frmAdminTitles()
        frmManageTitles.ShowDialog()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button11.Click
        Dim frmIndustries As New frmAdminIndustries()
        frmIndustries.ShowDialog()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button10.Click
        Dim frmQualifications As New frmAdminQualifications()
        frmQualifications.ShowDialog()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button14.Click
        Dim frmSkilledOccupations As New frmAdminSkilledOccupations()
        frmSkilledOccupations.ShowDialog()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button7.Click
        Dim frmAssessingAuthorities As New frmAdminAssessingAuthorities()
        frmAssessingAuthorities.ShowDialog()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button24.Click
        Dim frmUkVisa As New frmAdminManageUkVisa()
        frmUkVisa.ShowDialog()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button23.Click
        Dim frmManageCountries As New frmAdminCountries()
        frmManageCountries.ShowDialog()
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button22.Click
        Dim frmManageCounties As New frmAdminCounties()
        frmManageCounties.ShowDialog()
    End Sub

    Private Sub btnProducts_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnProducts.Click
        Dim frmManageProducts As New frmAdminProducts()
        frmManageProducts.ShowDialog()
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button19.Click
        Dim frmWhereHear As New frmAdminWhereHear()
        frmWhereHear.ShowDialog()
    End Sub

    Private Sub btnEventTypes_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnEventTypes.Click
        Dim frmEventTypes As New frmAdminEventTypes()
        frmEventTypes.ShowDialog()
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button17.Click
        Dim frmTaskTemplates As New frmAdminTaskTemplates()
        frmTaskTemplates.ShowDialog()
    End Sub

    Private Sub btnSecurity_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnSecurity.Click
        Dim frmSystemSecurity As New frmAdminSecurity()
        frmSystemSecurity.ShowDialog()
    End Sub

    Private Sub btnCommsMenu_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnCommsMenu.Click
        Dim frmAdCommsMenu As New frmAdminCommsMenu()
        frmAdCommsMenu.ShowDialog()
    End Sub

    Private Sub btnDataMonitor_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnDataMonitor.Click
        Dim frmAdminDataMenu As New frmAdminDataMenu
        frmAdminDataMenu.ShowDialog()
    End Sub

    Private Sub frmAdminHome_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyUp
        If e.Key = Key.Escape Then
            Me.Close()
        End If
    End Sub

    Private Sub frmAdminHome_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        GeneralTasks.ChangeTheme(Me)
        GeneralTasks.EnumerateandFill(Me.LogicalChildren)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button6.Click

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button13.Click

    End Sub

    Private Sub btnDepartment_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnDepartment.Click
        Dim frmDepartments As New frmAdminDepartments
        frmDepartments.ShowDialog()
    End Sub

    Private Sub btnProductTypes_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnProductTypes.Click
        Dim frmProductTypes As New frmAdminProductTypes
        frmProductTypes.ShowDialog()
    End Sub

    Private Sub btnPaymentTypes_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnPaymentTypes.Click
        Dim frmPaymentTypes As New frmAdminPaymentTypes
        frmPaymentTypes.ShowDialog()
    End Sub

    Private Sub button123_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles button123.Click
        Dim frmPaymentMethods As New frmAdminPaymentMethods
        frmPaymentMethods.ShowDialog()
    End Sub

    Private Sub btnManageAutomation_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnManageAutomation.Click
        Dim frmManageAutomation As New frmAdminManageAutomation
        frmManageAutomation.ShowDialog()
    End Sub

    Private Sub btnReports_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnReports.Click
        Dim rv As New ReportCriteria
        rv.ShowDialog()
    End Sub
End Class
